gdead.berkeley.edu/gdead.berkeley.edu.tar/gdead.berkeley.edu/pub/gdead/mac/stack-o-dead-1.8/stack-o-dead-1.8.2.sit.hqx/Dead Tapes/background_2754.xml

Extensible Markup Language | 1991-03-01 | 27KB | 709 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2754</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3714.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3207.css" />
    <part>
        <id>40</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>434</left>
            <top>231</top>
            <right>507</right>
            <bottom>253</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>= Stacks =</name>
        <script>--  This button will present a pop-up menu of stack names.--  Hold the mouse button down for a few seconds until--  the menu appears.  Select one of the choices to--  go to that stack.on mouseDownif the commandKey is down thendoHelpexit mouseDownend if--global stackLastput true into useLastif the optionKey is down then put false into useLastif stackLast is empty thenput "1,1,1,1,1,1" into stackListput the rect of me into thePtif item 2 of thePt > 230 then put 230 into item 2 of thePtput "Shows;Songs;Labels;Stats;Utility" into listput popUp( thePt, list ) into choice-- if it is 0, then no choice was made...if choice is not 0 thenput piece( list, ";", choice ) into theStackif theStack is not "Songs" then put "Dead " before theStackset the hilite of me to falsego stack theStackend ifend ifend mouseDown</script>
    </part>
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>105</left>
            <top>61</top>
            <right>250</right>
            <bottom>78</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>date</name>
        <script>on closeFieldconvert field "date" to short dateset name of this card to field "date"end closeFieldon oldCloseFieldconvert field "date" to short dateset name of this card to field "date"get field "location"if it is empty thenset the lockScreen to trueput field "date" into cardNamepush this cardgo to stack "Dead Shows"put " " into locNamefind cardName in field "date"if the result is empty thenput field "location" into locNameend ifpop cardif locName is not empty thenput item 1 of locName into field "location"end ifset the lockScreen to falseend ifend oldCloseField</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>105</left>
            <top>81</top>
            <right>362</right>
            <bottom>98</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>location</name>
        <script></script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>105</left>
            <top>100</top>
            <right>173</right>
            <bottom>117</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>source</name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>105</left>
            <top>119</top>
            <right>173</right>
            <bottom>136</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>gen</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>105</left>
            <top>139</top>
            <right>174</right>
            <bottom>156</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>quality</name>
        <script></script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>104</left>
            <top>159</top>
            <right>353</right>
            <bottom>273</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>comments</name>
        <script></script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>429</left>
            <top>308</top>
            <right>459</right>
            <bottom>335</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20689</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>--  This button sends you to the Home stack.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--lock screengo stack "Dead Utility"playDeadSong "Franklins"go "Home"unlock screen with visual effect iris closeend mouseUp</script>
    </part>
    <part>
        <id>9</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>385</left>
            <top>54</top>
            <right>444</right>
            <bottom>86</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev</name>
        <script>--  This button will send you to the previous card.on mouseDowngo prev cardrepeat while the mouse is downgo to prev cardend repeatend mouseDown</script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>427</left>
            <top>88</top>
            <right>468</right>
            <bottom>125</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20186</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>--  This screen will sort the cards in this stack--  by date.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--set the cursor to watchset the lockScreen to truepush this cardsort datetime by field "date"pop cardend mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>465</left>
            <top>302</top>
            <right>500</right>
            <bottom>336</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1012</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>return</name>
        <script>--  This button will return you to where you came from.--  This assumes that the handler that sent you here did--  a push card.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--visual effect iris close fastpop cardend mouseUp</script>
    </part>
    <part>
        <id>18</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>434</left>
            <top>156</top>
            <right>506</right>
            <bottom>178</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Import...</name>
        <script>--  This button will import a text file which contains a--  tape list with one tape entry per line.  It will skip--  blank lines and lines which do not have a valid date--  in the first word.----  Fields should be separated by a single tab.  Format:----    date, location, source, gen, quality, commenton mouseUpif the commandKey is down thendoHelpexit mouseUpend if--global deadDirask "Import which file:" with deadDirif the length of it < 6 then exit mouseUpput it into fileNameopen file fileNameput true into askUserrepeat foreverread from file fileName until returnif it is empty thenexit repeatend ifput Trim(it) into recordif record is empty then next repeat  -- blank line filter-- was converting here....put piece( record, tab, 1 ) into testDateconvert testDate to dateitemsif the number of items in testDate < 5 then next repeatdomenu "New Card"get piece( record, tab, 1 )convert it to short dateput it into field "date"set the name of this card to it-- risky... assumes field orderrepeat with i = 2 to number of fieldsput piece( record, tab, i ) into field iend repeatif askUser is true thenanswer "Again?" with "CANCEL" or "Do All" or "OK"if it is "CANCEL" then exit repeatif it is "Do All" then put false into askUserend ifend repeatclose file fileNameend mouseUpon foorepeat with i = 1 to the length of recordif character i of record is tab thenput "," into character i of recordnext repeatend ifif character i of record is "," thenput " " into character i of recordend ifend repeatend foo</script>
    </part>
    <part>
        <id>19</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>434</left>
            <top>183</top>
            <right>506</right>
            <bottom>205</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Export...</name>
        <script>--  This button will export the tape records in this stack--  to a text file with one tape entry per line.--  The format used is shown below, and is the same format--  required by the import function.----  Fields should be separated by a single tab.  Format:----    date, location, source, gen, quality, commenton mouseUpif the commandKey is down thendoHelpexit mouseUpend if--push this cardset the lockScreen to truego stack "Dead Utility"go to card "tape list"set the lockScreen to falseend mouseUp</script>
    </part>
    <part>
        <id>27</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>38</left>
            <top>193</top>
            <right>93</right>
            <bottom>266</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>play</name>
        <script>--  This button will play a random tune.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--playRandomDeadend mouseUp</script>
    </part>
    <part>
        <id>28</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>384</left>
            <top>130</top>
            <right>427</right>
            <bottom>152</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New</name>
        <script>--  This button will create a new tape card.  It will--  prompt for a date and automatically fetch the location--  from the Shows stack.on mouseUpif the commandKey is down thendoHelpelse if the optionKey is down thendoMenu "Copy Card"doMenu "Paste Card"click at the loc of field "date"elseset the lockScreen to truesetUpNewCardend ifend mouseUpon setUpNewCardask "Date of the show:"if it is not empty thenconvert it to short dateput it into showDateconvert it to dateItemsput item 1 of it into theYearfind showDate in field "date"if the result is empty thenplay boingelsedoMenu "New Card"put showDate into field "date"put 19 & piece( the short date, "/", 3 ) into thisYearif  theYear >=1965  and theYear <= thisYear thenpush this cardgo to stack "Dead Shows"put " " into locNameput findShowByDate( showDate ) into foundItif foundIt is true thenput field "location" into locNameend ifpop cardif locName is not empty thenput item 1 of locName into field "location"end ifend ifend ifclick at the loc of field "location"end ifend setUpNewCard</script>
    </part>
    <part>
        <id>30</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>434</left>
            <top>130</top>
            <right>506</right>
            <bottom>152</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go to...</name>
        <script>--  This button will look for a tape for a show of--  a date you will enter.  If it does not find it,--  it will go to the first tape with a date later than--  the one entered.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--ask "Enter the show date:"if it is empty then exit mouseUpput it into theShowconvert theShow to short datefind theShow in field "date"if the result is not empty thenset the cursor to 4set the lockScreen to trueconvert theShow to secondsrepeat for the number of cardsget field "date"convert it to secondsif it >= theShow then exit repeatgo next cardend repeatend ifend mouseUp</script>
    </part>
    <part>
        <id>34</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>426</left>
            <top>23</top>
            <right>463</right>
            <bottom>54</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>128</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Labels</name>
        <script>--  This button will send you to the labels stack.  It will--  find the labels for this tape, if they exist.  If they--  do not then it will offer to make them via the standard--  function for creating them, which will visit the shows--  stack to obtain the set lists.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--put field "date" into showDateput field "location" into Venuepush this cardset the lockScreen to truego to stack "Dead Labels"find showDate in field "date"--  go card cardNameif the result is not empty thenanswer "No labels.  Shall we make 'em?" with "Cancel"¬or "Don't Bother!" or "OK"if it is "Cancel" thenpop cardexit mouseUpelse if it is "OK" thennewLabels( ShowDate )end ifend ifend mouseUp</script>
    </part>
    <part>
        <id>39</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>384</left>
            <top>155</top>
            <right>427</right>
            <bottom>177</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>List</name>
        <script>--  This button will display the list of your tapes in--  a scrolling field.  Click opn the field to make it--  dissappear.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--push this cardlock Screengo card 1put empty into theListrepeat for the number of cards-- build the list...showBusy--put field "date" & "     " ¬   -- old wayput ExpandTabs( field "date" & tab, 10 ) ¬& item 1 of field "location" & "  : " ¬& line 1 of field "comments" & return after theListgo next cardend repeatpop cardshow field "Tape List"put the number of cards & " shows on file..." & return & ¬"---------------" & return & theList into field "Tape List"unlock Screen with visual effect dissolveend mouseUp</script>
    </part>
    <part>
        <id>35</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>397</left>
            <top>309</top>
            <right>419</right>
            <bottom>331</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26635</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Button</name>
        <script>--  This button will provide some general help about--  this stack.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--push this cardgo card "Tapes Help" of stack "Dead Utility"playDead "help"end mouseUp</script>
    </part>
    <part>
        <id>37</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>448</left>
            <top>54</top>
            <right>507</right>
            <bottom>86</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next</name>
        <script>--  This button will send you to the next card.on mouseDowngo next cardrepeat while the mouse is downgo to next cardend repeatend mouseDown</script>
    </part>
    <part>
        <id>38</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>9</left>
            <top>31</top>
            <right>506</right>
            <bottom>337</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Tape List</name>
        <script>on mouseUplock screenhide meput empty into meset the scroll of me to 0unlock screen with visual effect dissolveend mouseUp</script>
    </part>
    <part>
        <id>41</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>30</left>
            <top>103</top>
            <right>449</right>
            <bottom>318</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <textHeight>13</textHeight>
        <name>help text</name>
        <script>on mouseUplock screenhide meunlock screen with visual effect dissolve fastend mouseUp</script>
    </part>
    <content>
        <layer>background</layer>
        <id>41</id>
        <text>Help for bkgnd button "New"...  This button will create a new tape card.  It will  prompt for a date</text>
    </content>
    <name></name>
    <script>on newCardtabKeyend newCard</script>
</background>